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-- file FilePack.Mesa 

-- last modified by Satterthwaite, July 5, 1978 11:29 AM 

DIRECTORY 
AltoFileDefs: FROM "altof iledef s" , 
BcdDefs: FROM "bcddefs" , 
CopierDefs: FROM "copierdef s", 
DirectoryDefs: FROM "directorydef s M , 
SegmentDefs: FROM "segmentdef s'\ 
StringDefs: FROM "stringdef s", 
SymbolTableDefs: FROM "symbol tabledefs", 
SymDefs: FROM "symdefs", 
SymTabDefs: FROM "symtabdef s" , 
SystemDefs: FROM "systemdef s" , 
TableDefs: FROM "tabledefs" ; 

FilePack: PROGRAM 
IMPORTS 

DirectoryDefs, SegmentDefs, StringDefs, SymbolTableDefs, SymTabDefs, 
SystemDefs, TableDefs 
EXPORTS CopierDefs - 
BEGIN 
OPEN SymDefs; 

-- tables defining the current symbol table 

ctxb: TableDefs .TableBase; -- context table 

mdb: TableDefs. TableBase; -- module directory base 

bb: TableDefs. TableBase; -- body table 

FilePackNotify: TableDefs. TableNotif ier - 

BEGIN -- called whenever the main symbol table is repacked 

OPEN TableDefs; 

ctxb «- base[ctxtype]; mdb «- base[mdtype]; 

bb «- base[bodytype]; 

RETURN 

END; 

Substring: TYPE - StringDefs. Substring; 
SubStringDescriptor: TYPE ■ StringDefs .SubStringDescriptor ; 

-- included module accounting 

VersionStamp: TYPE ■ BcdDefs. VersionStamp; 

FileProblem: PUBLIC SIGNAL [HTIndex] RETURNS [BOOLEAN]- CODE; 
FileVersionMix: PUBLIC SIGNAL [HTIndex] - CODE; 

AnyVersion: VersionStamp ■ [zapped:FALSE, net:0, host:0, time:[0,0]]; 

EqStamps: PROCEDURE [vl, v2: POINTER TO VersionStamp] RETURNS [BOOLEAN] » 
BEGIN 

RETURN [vl.time ■ v2.time AND vl.net - v2.net AND vl.host ■ v2.host] 
END; 

ZappedStamp: PROCEDURE [v: POINTER TO VersionStamp] RETURNS [BOOLEAN] - 
BEGIN 

RETURN [v. zapped] 
END; 

EnterFile: PUBLIC PROCEDURE [name: STRING] RETURNS [HTIndex] - 
BEGIN 

desc: SubStringDescriptor <- [base:name, offset:0, length:name. length]; 
mdi: MDIndex ■ FindMdEntry[0desc, AnyVersion]; 
RETURN [(mdb+mdi).mdhti] 
END; 

Normal izeFileName: PROCEDURE [name: Substring] RETURNS [hti: HTIndex] - 
BEGIN 

1. j, n: CARDINAL; 
char: CHARACTER; 
dot: BOOLEAN <- FALSE; 
s: STRING «- SystemDef s.Al locateHeapString[name. length+(" .bed") . length+1] ; 
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desc: SubStringDescriptor; 
i «- name. offset; n <- i + name. length; 
IF name.base[i] ■ '< 
THEN 

FOR i IN (i .. n) 
DO 

IF name.base[i-l] - '> THEN EXIT; 
REPEAT 

FINISHED ■> i ♦• name. offset; 
ENDLOOP; 
FOR j IN [i .. n) 
DO 

char «- name.base[j]; 
SELECT char FROM 

IN ['A..'Z] -> char «- LOOPHOLE[LOOPHOLE[char, CARDINAL] + 40B]; 
' . ■> dot «- TRUE; 
';, M -> EXIT; 
ENDCASE; 
StringDefs.AppendChar[s, char]; 
ENDLOOP; 
IF -dot THEN StringDefs.AppendString[s t ".bed"]; 
IF s[s.length-l] # \ THEN StringDef s . AppendChar[s , '.]; 
desc «- SubStringDescriptor[base:s, offset:0, length: s. length]; 
hti «- SymTabDef s . EnterString[@desc]; 
SystemDefs.FreeHeapString[s]; RETURN 
END; 

HtiToMdi: PUBLIC PROCEDURE [hti: HTIndex] RETURNS [mdi: MDIndex] ■ 
BEGIN 

limit: MDIndex = LOOPHOLE[TableDef s. TableBounds[mdtype]. size] ; 
FOR mdi <- FIRST[MDIndex], mdi + SIZE[MDRecord] UNTIL mdi « limit 

DO 

IF hti = (mdb+mdi). mdhti THEN RETURN; 

ENDLOOP; 
RETURN [MDNull] 
END; 

FindMdEntry: PUBLIC PROCEDURE [name: Substring, version: VersionStamp] RETURNS [mdi: MDIndex] 
BEGIN 

hti: HTIndex = Normal izeFileName[name] ; 

limit: MDIndex = LOOPHOLE[TableDef s.TableBounds[mdtype]. size]; 
duplicate: BOOLEAN «- FALSE; 

FOR mdi «- FIRST[MDIndex], mdi + SIZE[MDRecord] UNTIL mdi ■ limit 
DO 

IF hti * (mdb+mdi) .mdhti 
THEN 
BEGIN 

IF EqStamps[@(mdb+mdi).mdStamp, ©version] THEN RETURN; 
OpenSymbols[mdi IFileProblem «> RESUME [FALSE]]; 
IF EqStamps[@(mdb+mdi ) .mdStamp, Qversion] 
OR (OpenedSymbols[mdi] AND ZappedStamp[@(mdb+mdi) .mdStamp]) 
THEN RETURN; 
IF (mdb+mdi). mdStamp # AnyVersion THEN duplicate <- TRUE; 
END; 
ENDLOOP; 
IF duplicate THEN SIGNAL Fi leVersionMix[hti] ; 
mdi <- TableDefs.Allocate[mdtype, SIZE[MDRecord]]; 
(mdb+mdi)t ♦- MDRecord[ 
mdhti: hti, 

mdctx: includedCTXNull , 
mdshared: FALSE, 
mdExported: FALSE, 
mdStamp: version, 
mdFile: nullFilelndex]; 
RETURN 
END; 

GetSymbolTable: PUBLIC PROCEDURE [mdi: MDIndex] RETURNS [SymbolTableDef s .SymbolTableBase] - 
BEGIN 

index: Filelnd&x; 
OpenSymbols[mdi] ; 
index ♦- (mdb+mdi ) .mdFile; 
RETURN [IF fileTable[index].file tt NIL 

THEN Symbol Tab 1 eDef s. Acqu i reSymbol Tab le[f ileTable[ index]. table] 

ELSE NIL] 
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END; 

FreeSymbolTable: PUBLIC PROCEDURE [base: SymbolTableDefs.SymbolTableBase] 
BEGIN 

Symbol Tab leDef s. ReleaseSymbol Tab le[base]; 
RETURN 
END; 

-- low-level file manipulation 

SymbolTableHandle: TYPE - SymbolTableDefs. SymbolTableHandle; 
NULLTableHandle: SymbolTableHandle - SymbolTableDef s .NULLTableHandle; 

FileRecord: TYPE - REC0RD[ 
file: SegmentDefs.FileHandle, 
table: SymbolTableHandle]; 

NullFileRecord: FileRecord « FileRecord[NIL, NULLTableHandle]; 

fileTable: DESCRIPTOR FOR ARRAY OF FileRecord; 
lastFile: INTEGER; 

-- file table management 

FilePacklnit: PUBLIC PROCEDURE [self: STRING, version: VersionStamp] - 
BEGIN 

OPEN SystemDefs; 

desc: SubStringDescriptor <- [base:self, offset:0, length:self. length]; 
TableDefs.AddNotify[FilePackNotify]; 

IF FindMdEntry[@desc, version] # FIRST[MDIndex] THEN ERROR; 
RETURN 
END; 

CreateFileTable: PUBLIC PROCEDURE [size: CARDINAL] - 
BEGIN OPEN SystemDefs; 
i: CARDINAL; 

fileTable <- DESCRIPTOR [AllocateHeapNode[size*SIZE[FileRecord]] , size]; 
FOR i IN [0..size) DO fileTable[i] «- NullFileRecord ENDLOOP; 
lastFile «- -1; RETURN 
END; 

ExpandFileTable: PROCEDURE - 
BEGIN OPEN SystemDefs; 

table: DESCRIPTOR FOR ARRAY OF FileRecord; 
i: CARDINAL; 

size: CARDINAL « LENGTH[f ileTable] + 2; 

table *- DESCRIPTOR [AllocateHeapNode[s ize*SIZE[FileRecord]] , size]; 
FOR i IN [O..LENGTH[f ileTable]) DO table[i] <- fileTable[i] ENDLOOP; 
FOR i IN [LENGTH[f ileTable]. .size) DO table[i] + NullFileRecord ENDLOOP; 
IF LENGTH[fileTable] > THEN FreeHeapNode[BASE[f ileTable]] ; 
fileTable «- table; 
RETURN 
END; 

FilePackReset: PUBLIC PROCEDURE ■ 
BEGIN 

i: INTEGER; 

Symbol Tab leDefs.SetSymbol Caches ize[0]; 
FOR i IN [0. .lastFile] 
DO 

ENABLE ANY »> CONTINUE; 
SELECT TRUE FROM 

(fileTable[i]. table # NULLTableHandle) ■> 
SegmentDef s.Del eteFileSegmen t[ 

SymbolTableDef s.SegmentForTable[fileTable[i]. table]]; 
(fileTable[i].file # NIL) -> 

SegmentDef s.ReleaseFile[f ileTable[i] ,f ile]; 
ENDCASE; 
ENDLOOP; 
Sy stemDefs. FreeHeapNode[BASE[f ileTable] ] ; 
TableDefs.DropNotify[FilePackNotify]; 
RETURN 
END; 
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-- file setup 

OwnFile: PUBLIC SIGNAL [file: SegmentDef s .FileHandle] - CODE; 

LocateTables: PUBLIC PROCEDURE [ntables: CARDINAL] ■ 
BEGIN 

n: CARDINAL <- ntables; 
limit: MDIndex ■ LOOPHOLE[TableDef s.TableBounds[mdtype] .size]; 

CheckFile: PROCEDURE [fp: POINTER TO Al toFileDef s . FP, s: STRING] RETURNS [BOOLEAN] - 
BEGIN 

dl: SubStringDescriptor «- [base:s, offset:0, length:s. length]; 
si: Substring - @dl; 
d2: SubStringDescriptor; 
s2: Substring - @d2; 
mdi: MDIndex; 

FOR mdi <- FIRST[MDIndex] , mdi+SIZE[MDRecord] UNTIL mdi - limit 
DO 

SymTabDefs.SubStringForHash[s2, (mdb+mdi) .mdhti]; 
IF StringDefs.EquivalentSubStrings[sl, s2] 
THEN 
BEGIN 

(mdb+mdi) .mdFile «- lastFile «- lastFile+1; 
f ileTable[lastFile] «- FileRecord[ 

file: SegmentDef s. InsertFile[fp , SegmentDef s. Read], 
table: NULLTableHandle]; 
IF mdi ■ OwnMdi THEN SIGNAL OwnFile[f ileTable[lastFile] .f ile]; 
n «- n-1; 
EXIT 
END; 
ENDLOOP; 
RETURN [n - 0] 
END; 

DirectoryDef s.EnumerateDi rectory [CheckFile]; 

RETURN 

END; 

MakeFileTableEntry: PUBLIC PROCEDURE 

[file: SegmentDefs. FileHandle, table: SymbolTableHandle] 

RETURNS [Filelndex] « 
BEGIN 

lastFile «- lastFile + 1; 

UNTIL lastFile < LENGTH[f ileTable] DO ExpandFileTable[] ENDLOOP; 
fileTable[lastFile] <- FileRecord[f ile: file, table: table]; 
RETURN [lastFile] 
END; 

FindFile: PROCEDURE [hti: HTIndex] RETURNS [newFile: Filelndex] » 
BEGIN 

desc: SubStringDescriptor; 
s: Substring * @desc; 
name: STRING; 

SymTabDef s .SubStringForHash[s, hti]; 
newFile <- lastFile + 1; 

UNTIL newFile < LENGTH[f ileTable] DO ExpandFileTable[] ENDLOOP; 
f ileTable[newFile] «- NullFileRecord; 
name <- SystemDefs . AllocateHeapString[s. length]; 
StringDef s . AppendSubString[name, s]; 
BEGIN 

OPEN SegmentDefs; 

f ileTable[newFile] .f ile <- NewFile[name, Read, OldFileOnly 
IFileProblem «> NULL; 
ANY -> 
IF SIGNAL FileProblem[hti] THEN CONTINUE ELSE GO TO noEntry]; 
lastFile <~ newFile; 
EXITS 

noEntry ■> newFile <- nullFilelndex; 
END; 
SystemDefs . FreeHeapString[name]; 
RETURN 
END; 
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OpenSymbols: PROCEDURE [mdi: MDIndex] ■ 
BEGIN 

index: Filelndex; 
bcdPages: CARDINAL; 
symbolSeg, headerSeg: SegmentDefs. FileSegmentHandle «- NIL; 

DeleteHeader: PROCEDURE ■ 
BEGIN OPEN SegmentDefs; 
IF headerSeg # NIL 
THEN 

BEGIN Unlock[headerSeg]; Del eteFileSegment[ headerSeg]; 
headerSeg «- NIL; 
END; 
RETURN 
END; 

bed: POINTER TO BcdDefs.BCD; 

mtRoot: POINTER TO BcdDef s.MTRecord; 

sgBase: CARDINAL; 

sSeg: BcdDef s.SGIndex; 

IF (mdb+mdi). mdFile ■ nullFilelndex THEN 

(mdb+mdi) . mdFil e «- FindFile[(mdb+mdi ) .mdhti]; 
index <- (mdb+mdi) .mdFile; 

IF index # nullFilelndex AND fileTable[index] .table « NULLTableHandle 
AND fileTable[index].file # NIL 
THEN 

BEGIN OPEN SegmentDefs; 
ENABLE 



BEGIN 








UNWIND 


=> 


NULL; 




ANY »> 


GO 


TO badFi 


ile 


END; 








bcdPages 


<- : 


I; 





headerSeg «- NewFileSegment[f ileTable[index] .f ile, 1, bcdPages, Read]; 
DO 

SwapIn[headerSeg]; bed ♦- FileSegmentAddress[headerSeg] ; 
IF bcdPages - bcd.nPages THEN EXIT; 
bcdPages «- bcd.nPages; 
Unlock [headerSeg]; SwapOut[ headerSeg]; 
MoveFileSegment[headerSeg, 1, bcdPages]; 
ENDLOOP; 
IF bed. versionident # BcdDef s .VersionID 

OR bcd.nConfigs # OR bcd.nModules # 1 THEN GO TO badFile; 
mtRoot <- LOOPHOLE[bcd + bed .mtOf f set] ; 

sgBase <- LOOPHOLE[bcd + bed .sgOff set]; sSeg «- mtRoot. sseg; 
IF sSeg = BcdDef s.SGNul 1 
OR (sgBase+sSeg) .pages ■ OR (sgBase+sSeg) .f ile ^ BcdDefs.FTSelf 
THEN GO TO badFile; 
IF (mdb+mdi) .mdStamp # AnyVersion 
AND ~EqStamps[@(mdb+mdi) .mdStamp, Obcd. version] 

AND ~ZappedStamp[@bcd. version] THEN GO TO badFile; 
(mdb+mdi) .mdStamp *- bed. version; 
symbolSeg ♦- NewFileSegment[ 

headerSeg. file, 

(sgBase+sSeg) .base, (sgBase+sSeg) .pages, 
Read]; 
symbolSeg. class *- other; 

fileTable [index] .table <- Symbol Tab leDefs . Tab leForSegment[ symbolSeg]; 
DeleteHeader[]; 
EXITS 

badFile »> 

IF SIGNAL FileProblem[(mdb+mdi). mdhti] 
THEN 
BEGIN 

IF headerSeg # NIL 
THEN DeleteHeader[] 
ELSE SegmentDefs . ReleaseFile[fileTable[ index] .file 

ISegmentDefs.FileError «> CONTINUE]; — if shared 
fileTable[index].file *- NIL; 
END 
ELSE DeleteHeader[]; 
END; 
RETURN 
END; 

OpenedSymbols: PROCEDURE [mdi: MDIndex] RETURNS [BOOLEAN] - 
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BEGIN 

index: Filelndex ■ (mdb+mdi ) .mdFile; 

RETURN [index § nullFilelndex 

AND fileTable[index]. table # NULLTableHandle] 
END; 

TableForModule: PUBLIC PROCEDURE [mdi: MDIndex] RETURNS [SymbolTableHandle] 
BEGIN 

RETURN[fileTable[ (mdb+mdi). mdFile]. table] 
END; 

END. 



